program testAttributeDesignatorThis;

class testAttributeDesignatorThis

BEGIN
   VAR aa, bb, cc : integer;

FUNCTION testAttributeDesignatorThis;
BEGIN
   aa := 432;
   PRINT this.aa
END

END
.

